home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / QuarkXPress Passport / QXP Passport™ Pre-release PPC / QuarkXPress Passport™ 4.0 Demo / QuarkXPress Passport™ 4.0 Demo.rsrc / PSHD_1028 < prev    next >
Text File  |  1997-08-25  |  1KB  |  22 lines
  1. /stf systemdict/settransfer get def
  2. /ctf systemdict/currenttransfer get def
  3. systemdict/setcolortransfer known{/cstf systemdict/setcolortransfer get def}if
  4. /cmykprsnt /currentcmykcolor where{pop T}{F}ifelse def
  5. /setcmykcolor where{pop}
  6.  {/setcmykcolor{1 sub 4 1 roll 3{3 index add neg dup 0 lt
  7.  {pop 0}if 3 1 roll}repeat R pop}B}ifelse
  8. /C/setcmykcolor load def
  9. /stovp0/setoverprint where{/setoverprint get}{{pop}}ifelse def
  10. /stovp{dup/ovp X stovp0}B
  11. /sttrp0/settrap where{/settrap get}{{pop}}ifelse def
  12. /sttrp{dup/trp X sttrp0}B
  13. /setcolorscreen where{pop/docpat where{pop}{/docpat T def}ifelse}
  14.  {/docpat F def/setcolorscreen{setscreen 9{pop}repeat}B}ifelse
  15. /xpscrn{dup not{pop currentscreen dup xcheck{T}
  16.  {9 index 8 index and{60 0 sp0 T 7 -3 roll 3}{F 10 1 roll 9}ifelse
  17.  {pop}repeat}ifelse dup{pop 3{5 -2 roll{exch}if pop 3 1 roll}repeat T}if}if
  18.  {setscreen}if p2}def
  19. /xpcscrn{dup not{pop/currentcolorscreen where{pop currentcolorscreen
  20.  dup xcheck not{36 T}{F}ifelse}{24 T}ifelse{{pop}repeat F}
  21.  {12{14 -2 roll{exch}if pop 12 1 roll}repeat T}ifelse}if{setcolorscreen}if}def
  22.